home *** CD-ROM | disk | FTP | other *** search
/ Aminet 4 / Aminet 4 - November 1994.iso / aminet / dev / obero / oberon_lib.lha / oberon-a / source1.lha / source / 3rdParty / ARPUtil.mod < prev    next >
Text File  |  1994-08-08  |  1KB  |  55 lines
  1. (***************************************************************************
  2.  
  3.      $RCSfile: ARPUtil.mod $
  4.   Description: Support for clients of arp.library
  5.  
  6.    Created by: fjc (Frank Copeland)
  7.     $Revision: 2.4 $
  8.       $Author: fjc $
  9.         $Date: 1994/08/08 16:05:18 $
  10.  
  11.   Copyright © 1994, Frank Copeland.
  12.   This file is part of the Oberon-A Library.
  13.   See Oberon-A.doc for conditions of use and distribution.
  14.  
  15. ***************************************************************************)
  16.  
  17. MODULE ARPUtil;
  18.  
  19. (*
  20. ** $C- CaseChk       $I- IndexChk  $L+ LongAdr   $N- NilChk
  21. ** $P- PortableCode  $R- RangeChk  $S- StackChk  $T- TypeChk
  22. ** $V- OvflChk       $Z- ZeroVars
  23. *)
  24.  
  25. IMPORT I := Intuition, ARP, SYS := SYSTEM;
  26.  
  27. (*------------------------------------*)
  28. (*
  29.   Simple wrapper for calling the ARP FileRequester.
  30. *)
  31.  
  32. (* $D- disable copying of open arrays *)
  33. PROCEDURE RequestFile * (
  34.   window        : I.WindowPtr;
  35.   hail          : ARRAY OF CHAR;
  36.   VAR file      : ARRAY OF CHAR;
  37.   VAR directory : ARRAY OF CHAR )
  38. : BOOLEAN;
  39.  
  40.   VAR fr : ARP.FileRequester;
  41.  
  42. BEGIN (* RequestFile *)
  43.   fr.hail      := SYS.ADR(hail);
  44.   fr.file      := SYS.ADR(file);
  45.   fr.dir       := SYS.ADR(directory);
  46.   fr.window    := window;
  47.   fr.funcFlags := {ARP.frNewIDCMP, ARP.frDoColor};
  48.   fr.flags2    := {ARP.fr2LongPath};
  49.   fr.leftEdge  := 0;
  50.   fr.topEdge   := 0;
  51.   RETURN (ARP.base.FileRequest (fr) # NIL);
  52. END RequestFile;
  53.  
  54. END ARPUtil.
  55.